home *** CD-ROM | disk | FTP | other *** search
/ AOL File Library: 2,801 to 2,900 / aol-file-protocol-4400-2801-to-2900.zip / AOLDLs / C++ Files Library / SK (Sockects) 1.4.1 r2 / SK v1.4.1 r2.sit / SK 1.4.1 r2 / SK / SK Sources / SK_Utilities.c < prev    next >
Text File  |  1994-06-13  |  7KB  |  271 lines
  1.  
  2. /***************************************************************************
  3. * 
  4. * 
  5. * Copyright ⌐ 1992-1994 Matthias Neeracher and the Decision Systems Group
  6. * 
  7. * Permission is granted to anyone to use this software for any purpose on
  8. * any computer system, and to redistribute it freely, subject to the
  9. * following restrictions:
  10. * 
  11. * 1) The authors and the Decision Systems Group are not responsible for 
  12. *    the direct or indirect consequences of use of this software, no matter 
  13. *    how awful, even if they arise from defects in the software itself.
  14. *    This restriction applies to the use of this and any derived source code 
  15. *    and also to the use of all binary produced from this and any derived 
  16. *    source code.
  17. * 2) The origin and copyrights of this software must not be misrepresented, 
  18. *    either by explicit claim or by omission or alteration of copyright or
  19. *    authorship header information in this file or in any derived file.
  20. * 3) Altered or derived versions must be plainly marked as such, and must not
  21. *    be misrepresented as being the original software.
  22. * 
  23. * We encourage users of this software to provide feedback, bug fixes,
  24. * and enhancements to the authors for incorporation into future releases.
  25. *
  26. * ==========================================================================
  27. * 
  28. * FILE: CK_Utilities.c
  29. * 
  30. * AUTHOR: 
  31. *
  32. * Stephan R.A. Deibel
  33. * 
  34. * CREATION DATE: 
  35. * 
  36. * 5/26/94
  37. *
  38. * VERSION: 
  39. * 
  40. * 5/26/94
  41. *
  42. * DESCRIPTION: 
  43. * 
  44. * SK utilities implementations.  Includes file and directory management 
  45. * utilities needed for dealing with the /etc/services file and also
  46. * some basic tools for converting between C and Pascal strings.
  47. * 
  48. * NOTES: 
  49. * 
  50. * 0) The file management code is currently Mac-specific.  It could eventually
  51. *    be generalized, combined with other capabilities, and moved to the
  52. *    DSG's CU_* set of tools.
  53. *
  54. * 1) These functions were ported from Pascal code in the DSG's DeSyGNER/Explorer
  55. *    project.  Additional related code, including code for tracking files
  56. *    (a nearly platform-independent alias manager), can be found there.
  57. * 
  58. * MODIFICATIONS: 
  59. * --------------------------------------------------------------------------
  60. * Date     Name      Description of modification
  61. * --------------------------------------------------------------------------
  62. * 
  63. * 5/26/94  Stephan   Created from ported Pascal code.
  64. *
  65. * $Log$
  66. * 
  67. */
  68.  
  69. #include <Files.h>
  70. #include <string.h>
  71.  
  72. #include "SK_Utilities_P.h"
  73.  
  74.  
  75. /****************************************************************************
  76. * FUNCTION:
  77. *
  78. * SK_CtoPstr
  79. *
  80. * DESCRIPTION:
  81. *
  82. * Convert a C string into a Pascal string in place.
  83. *
  84. * PARAMETERS:
  85. *
  86. * char *    -- The C string to convert.
  87. *
  88. */
  89.  
  90. void SK_CtoPstr(char *str)
  91. {
  92.   short int len;
  93.   
  94.   len = strlen(str);
  95.   /* ASSERT(len <= 255); */
  96.   memcpy(&str[1], &str[0], len);
  97.   str[0] = (char) len;
  98. }
  99.  
  100.  
  101. /****************************************************************************
  102. * FUNCTION:
  103. *
  104. * SK_PtoCstr
  105. *
  106. * DESCRIPTION:
  107. *
  108. * Convert a pascal string into a C string in place.
  109. *
  110. * PARAMETERS:
  111. *
  112. * char *    -- The pascal string to convert.
  113. *
  114. */
  115.  
  116. void SK_PtoCstr(char *str)
  117. {
  118.   short int len;
  119.   
  120.   len = (short int) str[0];
  121.   memcpy(&str[0], &str[1], len);
  122.   str[len] = '\0';
  123. }
  124.  
  125.  
  126. #ifdef macintosh
  127. /****************************************************************************
  128. * FUNCTION:
  129. *
  130. * SK_FileRefToFullPath
  131. *
  132. * DESCRIPTION:
  133. *
  134. * Convert a Macintosh file vrefnum, directory ID, and file name into a
  135. * full path name.
  136. *
  137. * PARAMETERS:
  138. *
  139. * int        -- The vrefnum
  140. * long        -- The directory ID
  141. * Str255    -- The file name (pascal string)
  142. * Str255    -- Buffer space for the returned full path (pascal string)
  143. *
  144. */
  145.  
  146. OSErr 
  147. SK_FileRefToFullPath(int vrefnum, long dirID, Str255 filename, Str255 fullpath)
  148. {
  149.    FSSpec an_fsspec;
  150.    
  151.    if (FSMakeFSSpec(vrefnum, dirID, filename, &an_fsspec) == noErr)
  152.      return SK_FSSpecToFullPath(&an_fsspec, fullpath);
  153.    else {
  154.      *fullpath = '\0';
  155.      return noErr;
  156.    }
  157.  }
  158.  
  159.  
  160. /****************************************************************************
  161. * FUNCTION:
  162. *
  163. * SK_FileRefToFullPath
  164. *
  165. * DESCRIPTION:
  166. *
  167. * Convert a Macintosh FSSpec into a full path name.
  168. *
  169. * PARAMETERS:
  170. *
  171. * FSSpec *    -- The file specification
  172. * Str255    -- Buffer space for the returned full path (pascal string)
  173. *
  174. * RETURNS:
  175. * 
  176. * OSErr        -- 0 on success; -1 on error
  177. *
  178. * NOTES:
  179. *
  180. * Very inefficient implementation -- need a Pascal concat() and should
  181. * rewrite this to use that instead of doing so much string conversion.
  182. *
  183. */
  184.  
  185. OSErr 
  186. SK_FSSpecToFullPath(FSSpec *file_spec, Str255 fullpath)
  187. {
  188.    OSErr err;
  189.    
  190.    err = SK_DirIDToFullPath(file_spec->vRefNum, file_spec->parID, fullpath);
  191.    if (err == noErr) {
  192.      SK_PtoCstr((char *) fullpath);
  193.      SK_PtoCstr((char *) file_spec->name);
  194.      
  195.      if (strlen((char *) fullpath) + strlen((char *) file_spec->name) <= 255) {
  196.        strcat((char *) fullpath, (char *) file_spec->name);
  197.        err = noErr;
  198.      } else
  199.        err = -1;
  200.      
  201.      SK_CtoPstr((char *) file_spec->name);
  202.      SK_CtoPstr((char *) fullpath);
  203.    }
  204.      
  205.    return noErr;
  206. }
  207.  
  208.  
  209. /****************************************************************************
  210. * FUNCTION:
  211. *
  212. * SK_DirIDToFullPath
  213. *
  214. * DESCRIPTION:
  215. *
  216. * Convert a Macintosh file vrefnum and directory ID into a full path 
  217. * directory name.
  218. *
  219. * PARAMETERS:
  220. *
  221. * int        -- The vrefnum
  222. * long        -- The directory ID
  223. * Str255    -- Buffer space for the returned full path (pascal string)
  224. *
  225. * RETURNS:
  226. *
  227. * OSErr        -- 0 on success; <> 0 (a Mac OSErr) if some error occurred.
  228. *
  229. * NOTES:
  230. *
  231. * Very inefficient implementation -- need a Pascal concat() and should
  232. * rewrite this to use that instead of doing so much string conversion.
  233. *
  234. */
  235.  
  236. OSErr SK_DirIDToFullPath(int vrefnum, long dirID, Str255 fullpath)
  237. {
  238.   CInfoPBRec block;
  239.   Str255 directory_name = "\p";
  240.   Str255 ret_name = "\p";
  241.   OSErr err;
  242.  
  243.   block.dirInfo.ioNamePtr = directory_name;
  244.   block.dirInfo.ioDrParID = dirID;
  245.  
  246.   do {
  247.     block.dirInfo.ioVRefNum = vrefnum;
  248.     block.dirInfo.ioFDirIndex = -1;
  249.     block.dirInfo.ioDrDirID = block.dirInfo.ioDrParID;
  250.     
  251.     err = PBGetCatInfo(&block, FALSE);
  252.     if (err == noErr) {
  253.       SK_PtoCstr((char *) directory_name);
  254.       SK_PtoCstr((char *) ret_name);
  255.       strcat((char *) directory_name, SKk_FileSeperator);
  256.       strcat((char *) ret_name, (char *) directory_name);
  257.       SK_CtoPstr((char *) directory_name);
  258.       SK_CtoPstr((char *) ret_name);
  259.     }
  260.   } while ((block.dirInfo.ioDrDirID != 2) && (err == noErr));
  261.  
  262.   if (err != noErr) 
  263.     ret_name[0] = '\0';
  264.     
  265.   return err;
  266. }
  267. #endif /* macintosh */
  268.  
  269.  
  270. /* end of SK_Utilities.c */
  271.